home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / text / print / VCArchive340.lha / vcarchive / Untitled III.install < prev    next >
Encoding:
Text File  |  1997-04-24  |  13.4 KB  |  517 lines
  1. ; *************************************************************************
  2. ; ******************  Untitled III Installation Script  *******************
  3. ; *************************************************************************
  4. ;
  5. ; $VER: Untitled III.install 1.5 (01.04.97)
  6. ;
  7. ; Copyright ©1997 Harald Zottmann
  8. ;
  9. ; *************************************************************************
  10. ;
  11.  
  12.  
  13. ; ------------------------------------------------------------------------
  14. ; Find out about program version
  15.  
  16.     (set vernum-vca    (getversion "Untitled"))
  17.     (set version-vca   (/ vernum-vca 65536))
  18.     (set revision-vca  (- vernum-vca (* version-vca 65536) ) )
  19.  
  20. ; ------------------------------------------------------------------------
  21. ; Set default destination directory
  22.  
  23.     (set def-vca-dir "SYS:")
  24.  
  25. ; ------------------------------------------------------------------------
  26. ; Set default language
  27.  
  28.     (set default_lang 1)
  29.  
  30. ; ------------------------------------------------------------------------
  31. ; Init some strings
  32.  
  33.     (set #yes-msg "Yes")
  34.     (set #no-msg "No")
  35.  
  36.     (set #new-msg "New Requester Look")
  37.     (set #old-msg "Old Requester Look")
  38.  
  39.     (set #mc-msg "MC - Music Cassettes")
  40.     (set #cd-msg "CD - Compact Discs")
  41.     (set #phono-msg "Phono - Longplayers")
  42.     (set #video-msg "Video - Video Tapes")
  43.  
  44.     (set #bad-kick-msg 
  45.         "Untitled III requires AmigaOS 2.04 or better !"
  46.     )
  47.  
  48.     (set #hello-msg
  49.         (cat
  50.         ("Welcome to Untitled V%ld.%ld\n\n" version-vca revision-vca)
  51.         "This script will install Untitled III and "
  52.         "related files on your Amiga.\n\n"
  53.         "You will need to answer a few questions such as "
  54.         "where you would like the program installed.\n\n"
  55.         "If you do not wish to install Untitled at this time, "
  56.         "select the 'Abort Install' button now. "
  57.         )
  58.     )
  59.  
  60.     (set #goodbye-msg
  61.         (cat
  62.         "The installation of Untitled III is now complete. "
  63.         "Have a look at the guides to get more information "
  64.         "about this powerful tool. If you have TeX installed "
  65.         "on your Amiga, you can print the DVI-file with the "
  66.         "complete program description.\n\n"
  67.         "Don`t forget to register if you use Untitled III "
  68.         "frequently. See the docs for more information.\n\n"
  69.         "Have fun..."
  70.         )
  71.     )
  72.  
  73.     (set #shortbye-msg
  74.         (cat
  75.         "Don`t forget to register if you use Untitled III "
  76.         "frequently. See the docs for more information.\n\n"
  77.         "Have fun..."
  78.         )
  79.     )
  80.  
  81.     (set #vca-askdir-msg 
  82.         (cat
  83.         "Select the directory to install Untitled III in. "
  84.         "If you want to create a new directory for this "
  85.         "application, do so now.\n"
  86.         )
  87.     )
  88.  
  89.     (set #processor-msg
  90.         (cat
  91.         "Untitled III is optimized for the listed "
  92.         "processor types. Please indicate "
  93.         "which processor you have in your machine."
  94.         "\n--------------------------\n"
  95.         "The Installer found out that you have a\n"
  96.         "MC " (database "cpu") " CPU\n"
  97.         )
  98.     )
  99.  
  100.     (set #processor-help
  101.         (cat
  102.         "There are three optimized versions of "
  103.         "Untitled III available. "
  104.         "Simply specify the processor (CPU) of your machine. "
  105.         "For example if you have a stock A1200 or "
  106.         "A4000/030, choose MC 68020. For an A4000/040 "
  107.         "you may choose MC 68040. Older machines without "
  108.         "accelerator boards, like A500 or A2000 must "
  109.         "choose the MC 68000. "
  110.         "The Installer program however found out that "
  111.         "your machine is equipped with a MC "
  112.         (database "cpu") " CPU. "
  113.         "If you are not sure about that, choose the "
  114.         "MC 68000 version, that runs on every machine."
  115.         )
  116.     )
  117.  
  118.     (set #locale-msg
  119.         (cat
  120.         "Untitled III is localized and has been translated "
  121.         "into the following languages. Please indicate "
  122.         "which translation you wish to install.\n"
  123.         )
  124.     )
  125.  
  126.     (set #locale-help
  127.         (cat
  128.         "English and Deutsch are the languages which are "
  129.         "supported by Untitled III. "
  130.         "Simply specify the language you prefer. "
  131.                 "You can change your selection later, "
  132.                 "by modifying the corresponding Tooltype. "
  133.         "The AmigaGuide files for Untitled III will "
  134.         "be present for both languages, regardless of "
  135.         "your present selection."
  136.         )
  137.     )
  138.  
  139.     (set #examples-msg
  140.         (cat
  141.         "Untitled III comes with several example files. "
  142.         "Please select whether you want them to be "
  143.         "installed for training purposes. "
  144.         "You can delete them later, if you want.\n"
  145.         "Note that already existing data files will not be "
  146.         "overwritten by the installation script.\n"
  147.         )
  148.     )
  149.  
  150.     (set #examples-help
  151.         (cat
  152.         "These files provide some examples on how to "
  153.         "work with Untitled III. If you have a "
  154.         "previous version of Untitled III installed "
  155.         "and this is only an update, you should not "
  156.         "install these examples. "
  157.         )
  158.     )
  159.  
  160.     (set #su-mode-msg
  161.         (cat
  162.         "\Untitled III manages your MCs, CDs, "
  163.         "Longplayers and Videos. Please select the "
  164.         "default mode of Untitled III on program start. "
  165.         "You can change this selection later, if you want.\n"
  166.         )
  167.     )
  168.  
  169.     (set #su-mode-help
  170.         (cat
  171.         "This option gives you the choice between the four "
  172.         "different modes (MC, CD, Phono, Video) of Untitled III. "
  173.         "The selected mode will be invoked on every program start, "
  174.         "but you can alter the mode during run time, whenever you want. "
  175.         "If you are not sure, the best decision is to "
  176.         "select the mode which you intend to use most often. "
  177.         )
  178.     )
  179.  
  180.     (set #su-req-msg
  181.         (cat
  182.         "Untitled III provides two different requester styles. "
  183.         "The new OS2.x requester look and an old internal one. "
  184.         "The advantage of the old one is, that you can "
  185.         "confirm it with the <RETURN> key, and cancel it "
  186.         "with the <ESCAPE> key. The new one however looks much neater.\n"
  187.         )
  188.     )
  189.  
  190.     (set #su-req-help
  191.         (cat
  192.         "This option gives you the choice between two "
  193.         "different requester styles. "
  194.         "If you are not sure, select the new one. "
  195.         "You can change this selection later, if you want.\n"
  196.         )
  197.     )
  198.  
  199.  
  200. ; ************************************************************************
  201. ; Begin actual installation
  202. ; ************************************************************************
  203.  
  204. ; ------------------------------------------------------------------------
  205. ; Check for KickV37 or better
  206.  
  207.     (if (< (/ (getversion) 65536) 37)
  208.         (
  209.         (abort #bad-kick-msg)
  210.         )
  211.     )
  212.  
  213.  
  214. ; ------------------------------------------------------------------------
  215. ; Print the welcome message
  216.  
  217.     (message #hello-msg)
  218.  
  219.  
  220. ; ------------------------------------------------------------------------
  221. ; Ask the user where we should install Untitled III
  222.  
  223.     (if (= 0 @user-level)
  224.         (
  225.         (set vcadir        (tackon @default-dest "VCArchive") )
  226.         (set @default-dest vcadir)
  227.         (makedir vcadir)
  228.         (copyfiles (source "/VCArchive") (dest vcadir) (infos) (all))
  229.         (exit (#shortbye-msg)) 
  230.         )
  231.     )
  232.  
  233.  
  234.     (set vcadir
  235.         (askdir
  236.             (prompt #vca-askdir-msg)
  237.             (help @askdir-help)
  238.             (default def-vca-dir)
  239.         )
  240.     )
  241.  
  242.     (set @default-dest vcadir)
  243.  
  244.  
  245. ; ------------------------------------------------------------------------
  246. ; Ask which processor version to be installed
  247.  
  248.     (set procversion
  249.         (askchoice
  250.             (prompt #processor-msg)
  251.             (help #processor-help)
  252.             (choices
  253.                 "MC 68000"
  254.                 "MC 68020"
  255.                 "MC 68040"
  256.             )
  257.             (default 0)
  258.         )
  259.     )
  260.     (if (= 0 procversion)
  261.         ((copyfiles (source "Untitled") (dest vcadir) (infos))
  262.         )
  263.     )
  264.     (if (= 1 procversion)
  265.         ((copyfiles (source "Untitled_020")  (dest vcadir))
  266.          (copyfiles (source "Untitled.info") (dest vcadir))
  267.          (rename (tackon vcadir "Untitled_020") (tackon vcadir "Untitled"))
  268.         )
  269.     )
  270.     (if (= 2 procversion)
  271.         ((copyfiles (source "Untitled_040")  (dest vcadir))
  272.          (copyfiles (source "Untitled.info") (dest vcadir))
  273.          (rename (tackon vcadir "Untitled_040") (tackon vcadir "Untitled"))
  274.         )
  275.     )
  276.  
  277. ; ------------------------------------------------------------------------
  278. ; Check if there are old configurations
  279.  
  280.     (if (NOT(exists (tackon vcadir "VCA.CFG") ) )
  281.         (copyfiles (source "VCA.CFG") (dest vcadir) )
  282.     )
  283.     (if (NOT(exists (tackon vcadir "VCA.FNK") ) )
  284.         (copyfiles (source "VCA.FNK") (dest vcadir) )
  285.     )
  286.  
  287.  
  288. ; ------------------------------------------------------------------------
  289. ; Install Hypertext Guide
  290.  
  291.     (copyfiles (source "VCA_E.guide") (dest vcadir) (infos) )
  292.     (copyfiles (source "VCA_D.guide") (dest vcadir) (infos) )
  293.  
  294.  
  295. ; ------------------------------------------------------------------------
  296. ; Install Tools
  297.  
  298.     (set toolsdrw (tackon vcadir "Tools"))
  299.     (makedir toolsdrw)
  300.     (copyfiles (source "Tools.info") (dest vcadir) )
  301.  
  302.     (copyfiles (source "Tools/Tools.ReadMe")  (dest toolsdrw) (infos) )
  303.     (copyfiles (source "Tools/VideoCounter")  (dest toolsdrw) (infos) )
  304.     (copyfiles (source "Tools/Backup")        (dest toolsdrw) (infos) )
  305.     (copyfiles (source "Tools/Restore")       (dest toolsdrw) (infos) )
  306.     (copyfiles (source "Tools/Requester")     (dest toolsdrw) )
  307.     (copyfiles (source "Tools/FUnCopy")       (dest toolsdrw) )
  308.  
  309.  
  310. ; ------------------------------------------------------------------------
  311. ; Install Docs
  312.  
  313.     (set docsdrw (tackon vcadir "Docs"))
  314.     (makedir docsdrw)
  315.     (copyfiles (source "Docs.info") (dest vcadir) )
  316.  
  317.     (copyfiles (source "Docs/VCA_E.dvi")      (dest docsdrw) (infos) )
  318.     (copyfiles (source "Docs/VCA.ReadMe")     (dest docsdrw) (infos) )
  319.  
  320.     (copyfiles (source "Docs/VCA_D.dvi")      (dest docsdrw) (infos) )
  321.     (copyfiles (source "Docs/VCA.LiesMich")   (dest docsdrw) (infos) )
  322.  
  323.     (copyfiles (source "Docs/ORDERFORM.TXT")     (dest docsdrw) (infos) )
  324.     (copyfiles (source "Docs/REGISTRIERUNG.TXT") (dest docsdrw) (infos) )
  325.     (copyfiles (source "Docs/HISTORY.TXT")       (dest docsdrw) (infos) )
  326.     (copyfiles (source "Docs/DISCLAIMER.TXT")    (dest docsdrw) (infos) )
  327.  
  328.  
  329. ; ------------------------------------------------------------------------
  330. ; Install Export-Filters
  331.  
  332.     (set filtersdrw  (tackon vcadir "Filters"))
  333.     (makedir filtersdrw)
  334.     (copyfiles (source "Filters/")        (dest filtersdrw)  (all) (infos) )
  335.     (copyfiles (source "Filters.info")    (dest vcadir) )
  336.  
  337.  
  338. ; ------------------------------------------------------------------------
  339. ; Install tool to support making own Export-Filters
  340.  
  341.  
  342.     (set mkfilterdrw (tackon vcadir "MakeFilter"))
  343.     (makedir mkfilterdrw)
  344.     (copyfiles (source "MakeFilter/")     (dest mkfilterdrw) (all) (infos) )
  345.     (copyfiles (source "MakeFilter.info") (dest vcadir) )
  346.  
  347.  
  348. ; ------------------------------------------------------------------------
  349. ; Ask which built in language should be invoked for Untitled III
  350.  
  351.     (set lang
  352.         (askchoice
  353.             (prompt #locale-msg)
  354.             (help #locale-help)
  355.             (choices
  356.                 "English"
  357.                 "Deutsch"
  358.             )
  359.             (default default_lang)
  360.         )
  361.     )
  362.     (if (= 0 lang)
  363.         (tooltype
  364.             (dest (tackon vcadir "Untitled"))
  365.             (settooltype "LANGUAGE" "1")
  366.         )
  367.     )
  368.     (if (= 1 lang)
  369.         (tooltype
  370.             (dest (tackon vcadir "Untitled"))
  371.             (settooltype "LANGUAGE" "0")
  372.         )
  373.     )
  374.  
  375.  
  376. ; ------------------------------------------------------------------------
  377. ; Update from a version, previous to Untitled Version 3.0
  378.  
  379.         (if (exists (tackon vcadir "Ordner_1") )
  380.             (rename (tackon vcadir "Ordner_1") (tackon vcadir "MC_Ordner_1") )
  381.         
  382.         )
  383.         (if (exists (tackon vcadir "Ordner_2") )
  384.             (rename (tackon vcadir "Ordner_2") (tackon vcadir "MC_Ordner_2") )
  385.         
  386.         )
  387.         (if (exists (tackon vcadir "Ordner_3") )
  388.             (rename (tackon vcadir "Ordner_3") (tackon vcadir "MC_Ordner_3") )
  389.         
  390.         )
  391.         (if (exists (tackon vcadir "Ordner_1.List") )
  392.             (rename (tackon vcadir "Ordner_1.List") (tackon vcadir "MC_Ordner_1.Liste") )
  393.         
  394.         )
  395.         (if (exists (tackon vcadir "Ordner_2.List") )
  396.             (rename (tackon vcadir "Ordner_2.List") (tackon vcadir "MC_Ordner_2.Liste") )
  397.         
  398.         )
  399.         (if (exists (tackon vcadir "Ordner_3.List") )
  400.             (rename (tackon vcadir "Ordner_3.List") (tackon vcadir "MC_Ordner_3.Liste") )
  401.         
  402.         )
  403.  
  404.  
  405. ; ------------------------------------------------------------------------
  406. ; Ask whether examples should be installed
  407.  
  408.     (set examples
  409.         (askchoice
  410.             (prompt #examples-msg)
  411.             (help #examples-help)
  412.             (choices
  413.                 #yes-msg
  414.                 #no-msg
  415.             )
  416.             (default 0)
  417.         )
  418.     )
  419.     (if (= 0 examples)
  420.         ( 
  421.         (if (NOT(exists (tackon vcadir "MC_Ordner_1") ) )
  422.             ( (copyfiles (source "MC_Ordner_1")       (dest vcadir) )
  423.                 (copyfiles (source "MC_Ordner_1.Liste") (dest vcadir) )
  424.             )
  425.  
  426.         )
  427.         (if (NOT(exists (tackon vcadir "CD_Ordner_1") ) )
  428.               ( (copyfiles (source "CD_Ordner_1")       (dest vcadir) )
  429.                 (copyfiles (source "CD_Ordner_1.Liste") (dest vcadir) )
  430.             )
  431.         )
  432.         (if (NOT(exists (tackon vcadir "Phono_Ordner_1") ) )
  433.               ( (copyfiles (source "Phono_Ordner_1")       (dest vcadir) )
  434.                 (copyfiles (source "Phono_Ordner_1.Liste") (dest vcadir) )
  435.             )
  436.         )
  437.         (if (NOT(exists (tackon vcadir "Video_Ordner_1") ) )
  438.               ( (copyfiles (source "Video_Ordner_1")       (dest vcadir) )
  439.                 (copyfiles (source "Video_Ordner_1.Liste") (dest vcadir) )
  440.             )
  441.         )
  442.         )
  443.     )
  444.  
  445.  
  446. ; ------------------------------------------------------------------------
  447. ; Ask for startup mode
  448.  
  449.     (set su-mode
  450.         (askchoice
  451.             (prompt #su-mode-msg)
  452.             (help #su-mode-help)
  453.             (choices
  454.                 #mc-msg
  455.                 #cd-msg
  456.                 #phono-msg
  457.                 #video-msg
  458.             )
  459.             (default 0)
  460.         )
  461.     )
  462.     (if (= 0 su-mode)
  463.         (tooltype
  464.             (dest (tackon vcadir "Untitled"))
  465.             (settooltype "MODUS" "1")
  466.         )
  467.  
  468.     )
  469.     (if (= 1 su-mode)
  470.         (tooltype
  471.             (dest (tackon vcadir "Untitled"))
  472.             (settooltype "MODUS" "2")
  473.         )
  474.  
  475.     )
  476.     (if (= 2 su-mode)
  477.         (tooltype
  478.             (dest (tackon vcadir "Untitled"))
  479.             (settooltype "MODUS" "3")
  480.         )
  481.  
  482.     )
  483.     (if (= 3 su-mode)
  484.         (tooltype
  485.             (dest (tackon vcadir "Untitled"))
  486.             (settooltype "MODUS" "4")
  487.         )
  488.  
  489.     )
  490.  
  491.  
  492. ; ------------------------------------------------------------------------
  493. ; Ask for requester style
  494.  
  495.     (set su-req
  496.         (askchoice
  497.             (prompt #su-req-msg)
  498.             (help #su-req-help)
  499.             (choices
  500.                 #new-msg
  501.                 #old-msg
  502.             )
  503.             (default 0)
  504.         )
  505.     )
  506.     (if (= 0 su-req)
  507.         (tooltype (dest (tackon vcadir "Untitled")) (settooltype "STYLE" "1") )
  508.         (tooltype (dest (tackon vcadir "Untitled")) (settooltype "STYLE" "0") )
  509.     )
  510.  
  511.  
  512. ; ------------------------------------------------------------------------
  513. ; Print the goodbye message and quit
  514.  
  515.     (message #goodbye-msg)
  516.  
  517.